Source: John Hopkins Uni.
### State Data
rm(list=ls())
source("../DATA/movavg.R")
db <- db <- dbConnect(RSQLite::SQLite(),dbname= "../COVID-19-DB/NYTimes.sqlite3")
df <- dbGetQuery(db,"select * from usvaccine")
df <- df[order(df$date),]
df <- subset(df,Province_State =="Ohio" )
df$date <- as.Date(df$date,format="%m-%d-%Y")
buckeye <- df %>% select(date,doses_admin_total,
doses_admin_unknown,people_total)
doses_admin_total
p1 <- buckeye %>% ggplot() + geom_area(aes(x=date,y=doses_admin_total,fill="red")) +
scale_y_continuous(labels=comma) +
labs(title="doses_admin_total")
ggplotly(p1)
people_total
p2 <- buckeye %>% ggplot() + geom_area(aes(x=date,y=people_total,fill="red")) +
scale_y_continuous(labels=comma) +
labs(title="people_total")
ggplotly(p2)